(define (convert-xwd filename)
  (let* ((image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
	 (drawable (car (gimp-image-get-active-layer image))))
    (gimp-file-save RUN-NONINTERACTIVE image drawable (string-append filename ".png") (string-append filename ".png"))
    (gimp-image-delete image)))

		    
	 